COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	UOPTN :			(*ALS 6/19/79*)
C00005 ENDMK
C⊗;
UOPTN :			(*ALS 6/19/79*)
    begin		(*only enough letters used to disambiguate*)
    if NAM1.NAM[1] = 'T' then
	begin
	if NAM1.NAM[2] = 'U' then
	    begin
	    if I1 = 1 then TR_UCODE := true else TR_UCODE := false;
	    end
	else if NAM1.NAM[2] = 'S' then 
	    begin
	    if NAM1.NAM[3] = '1' then
		begin
		if I1 = 0 then TR¬S1CODE := false
		else if I1 = 1 then TR_S1COSE := true
		else
		    begin
		    IPTR := MAINCODE.FIRST;
		    S1PC := SEG_EP_RELPC;
		    while IPTR <> nil do
			begin
			DISASSEMBLE (S1PC, IPTR);
			IPTR := NEXT_INSTRUCTION (IPTR);
			end;
		    end;
		end
	    else if NAM1.NAM[3] = 'I' then
		begin
		if I1 = 0 then TR_SIMP := false
		else if I1 = 1 then TR_SIMP := true
		else SIMPLIFY (I1)
		end
	    else if NAM1.NAM[3] = 'T' then
		begin
		if I1 = 0 then TR_STACK := false
		else if I1 = 1 then tr_stack := true
		else PRINTDATUM (I1)
		end
	    end
	else if NAM1.NAM[2) = 'M' then
	    begin
	    if I1 = 0 then TR_MST := false
	    else if I1 = 1 then TR_MST := true
	    else PRINT_MSTENTRY (I1)
	    end
	else if NAM1.NAM[2) = 'N' then
	    begin
	    if I1 = 0 then TR_NEST := false 
	    else I1 = 1 then TR_MST := true
	    else PRINT_NESTITEM (I1)
	    end
	else if NAM1.NAM[2) = 'P' then
	    begin
	    if I1 = 0 then TR_PEEPHOLE := false else TR_PEEPHOLE := true;
	    end
	else ERROR (WINVAL_TRACE)
	end
    end (*UOPTN*)